﻿Module EstrazioneLotto
  Sub Main()
    Dim ruote() As String = {"NAZIONALE   ", _
                             "BARI        ", _
                             "CAGLIARI    ", _
                             "FIRENZE     ", _
                             "GENOVA      ", _
                             "MILANO      ", _
                             "NAPOLI      ", _
                             "PALERMO     ", _
                             "ROMA        ", _
                             "TORINO      ", _
                             "VENEZIA     "}
    ' variabili di ciclo: i (riga), j (colonna)
    Dim i As Integer
    Dim j As Integer
    Dim out As String = ""   ' risultato
    ' generatore numeri pseudo-casuali:
    Dim generator As New Random
    Dim arrEstrazioneLotto(10, 4) As Byte
    For i = 0 To 10
      For j = 0 To 4
        ' estrazione dei 5 numeri:
        arrEstrazioneLotto(i, j) = _
           CType(generator.Next(1, 90), Byte)
      Next
    Next
    For i = 0 To 10
      out &= ruote(i) & "   "
      For j = 0 To 4
        ' prepara stampa di 5 numeri:
        out &= (arrEstrazioneLotto(i, _
           j).ToString("00")) & " "
      Next
      out &= Environment.NewLine
    Next
    Console.WriteLine(out)   ' scrive risultato
    Console.ReadLine()
  End Sub
End Module
